inherited FrmCons_Assistencia: TFrmCons_Assistencia
  Left = 110
  Top = 111
  Caption = 'Consulta de Assist'#234'ncias T'#233'cnicas'
  OldCreateOrder = True
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  inherited GB: TGroupBox
    object Label1: TLabel
      Left = 32
      Top = 27
      Width = 23
      Height = 14
      Caption = 'Data'
    end
    object ed_data: TDateEdit
      Left = 64
      Top = 26
      Width = 121
      Height = 21
      NumGlyphs = 2
      TabOrder = 0
      OnKeyDown = ed_dataKeyDown
    end
  end
  inherited Panel2: TPanel
    object db: TDBGrid
      Left = 1
      Top = 1
      Width = 628
      Height = 241
      Align = alClient
      DataSource = ds
      Options = [dgTitles, dgIndicator, dgRowLines, dgRowSelect]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = BtnFecharClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Ass_Numero'
          Title.Caption = 'N'#250'mero'
          Width = 78
          Visible = True
        end
        item
          Color = 16056319
          Expanded = False
          FieldName = 'Emp_Codigo'
          Title.Caption = 'Empresa'
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Entidade'
          Title.Caption = 'Cliente'
          Width = 374
          Visible = True
        end
        item
          Color = 16056319
          Expanded = False
          FieldName = 'Data'
          Width = 90
          Visible = True
        end>
    end
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 560
    Top = 13
    object cdsAss_Numero: TStringField
      FieldName = 'Ass_Numero'
    end
    object cdsEntidade: TStringField
      FieldName = 'Entidade'
      Size = 40
    end
    object cdsEmp_Codigo: TStringField
      FieldName = 'Emp_Codigo'
    end
    object cdsData: TStringField
      FieldName = 'Data'
    end
  end
  object ds: TDataSource
    DataSet = cds
    Left = 588
    Top = 13
  end
end
